#!/usr/bin/perl
use strict;
use warnings;
my $file = $ARGV[0];
my $file2 = $ARGV[1];
open(data1, "<$file") or die "文件1无法打开, $!";
open(data2, ">$file2")or die "文件2无法打开, $!";
my @linelist=<data1>;
$^I = ".bak";   # make a copy
#while(<>){s/[^|]*$//;print $_;}
foreach my $eachline(@linelist)
{
#s/[^|]*$//;
$eachline =~ s/(\(\*.*\*\))//;
print data2 $eachline;
}
